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IN THIS ISS le. 


I decided ta publish virtually the 
entire text af the GUIDE TO FROFESSTONAL 
FROGRAMMING. Some Gf it has appeared 
in the journal previously, but there 16 
new material designed far those who want 
to write professianally ar for the 
journal. NOTE- mast af the GUIDE was 
weitten a lang time aqa and I have 
myself mot followed all the advice that 
it gives. Flease don’t bother to write 
and point that cut toa me. 

We have a qood article from the 
British Users Group an machine cade. I 
had guest bequn working an a similar 
article myself when this ane came in. 
Tt is hetter that what I was doing sca we 
published it. We'll try to get further 
articles fram the EUG but cannot pramise 
what will Rappen in the future. 


dee GUID TO 
FROFESSTIONAL FROGRAMMING 


I am going to make a number of 
assumptians about the reader af the 
document . Twill assume that you know 
the basics of pragramming. $ wWiil 
assume that you have read O5T’s 
Graphics Manual and Aardvarks "Graphics 
in BASIC" and that you da not, 
therefore, need more information an haw 
to move things around the display and 
how to pragram special functian keys. I 
wild therefore, dwell on how to make the 
programs mum an bath Ci and C2-C4 
systema and an matters of professional 
style. 

It is important that programs run 
on both types of video/keyboard systems. 

At this time the market for programs is 
about 70% 600 baard and 30% 340 ar 
SH4bOR , 


A praqram that runs ananly ane 
system, therefare, cuts cut almast half 
af the potential market. Tt is 
additionally mare expensive far us ta 
handle and much more difficult to place 
with dealers as it doubles their 
etocking problems. We, therefore, try 
mat toa carry ane system programs. We 
da da sa anly in @xceptianal cases. ALI 
the praqrams that I have written for OST 
rum Gam bath systems and I am willing to 
canvert well written programs-but the 
cammissions are lower for programs I 
canvert and I will only canvert programs 
that are written with conversian in 
mind. 


HOW TO DETECT THE SYSTEM We have tried 
a number af methads of detecting the 
system type automatically and have found 
that the mast dependable and simplest 
methad ais ta FEEFK the keyboard. PEEK 
(370898) will return a number over 128 if 
the syetem is a 600 board a2 oF 
Superboard) and a number under 129 if 
the system 1s a S40 aor S40OR., A typical 
decision line would read: 

LOOVIDED=600: IFFPEER (37088) 
VIDEOQ=S40 

The program can then set up and adjust 
the variables far screen routine and 
keyboard for the system detected. 


ae Be THEN 


QUAL FURFOSE KEYBOARD ROUTINES 

There are three kinds of routines you 
can use ta do dual purpose keyboard 
detection. Which you use depends an the 
needs af the program. 

if you are inputting from joystics ar 
need a lat af keys detected, the best 
way 26 Brute farce. Stare all the 
Yalues for the keyboard in variable 
Names car in an array and set up a couple 
af lines to change the values accarding 
ta the system. Far instance, if you are 
weebting an a C4F and want tao detect the 


(1) key, you say- 

Pil=128: IFVID=4600 (REM THE CiF) THENF1=127 
REM DETECTS TOF ROW EITHER SYS 
FORES7O898,FP1:REM FOKERR WITH CORRECT 
VALUE. 

Fortunately, there is a simple system 
to convert the PEEKed values for the 
alternate system. As the keyboard values 
are inverted, you write for your system 
and then subtract the PEEKed value from 
evo to get the alternate system ~- like 
this, 

LOOP=FPEER (37088) : IFVID=4600THENF'=255—-P 
REM CONVERTS FOR EITHER SYSTEM. The 
first system is therefor cumbersome but 
simple. Check the keyboard for which 
system you have. Store the system in a 
Variable or flag. Change the FOKE values 
if necessary. FORE the keyboard. Store 
the FEER. Subtract the PEER from 255 if 
@ther system. 


The second routine works faster, 


takes less cade and is preferable for 
systems where yau can get by with & 
cantrod keys. AS explained in our 
graphics manual, the state af the 
cantral keys (shifts, cntrl, rpt, esc) 
are scanned cantinuously and stored in 
w?1O0, You can detect- key presses by 
PEERing that location without turning 


Off the control € scan ar POKEing to the 
keyboard. It, therefore, works fast and 
is simple to canvert to dual usage. As 
with the preceding routine, you write 
the program to work on your system and 
then convert to dual usage by 
subtracting the value you PEEF from 255, 
with a line similar to the one above 
except that the PORE is not needed. That 
epeeds up and siplifies thinas. 
The third method is the simplest toa 
and requires mo conversion. AS 
in our catalog, there is a 


use 
given 


subroutine in ROM at FEOO that can be 
addressed by a USR function. For those 
oF you whe do not have a copy of our 


catalog, I repeat. 
LOPOKE DT Os PORES, 2a 
USR vector) 
2OX=USR (x): X=FEER (S31) (Gives 
ASCIT value returned by keyboard) REM 
SEE AARDVARE CATALOG OR FORMER JOURNALS 
FOR DISK ROUTINE. 
This routine STOFS FOR AN 
cannot be used in real time 
programming. ° 


(Sets up 


INFUT- and 


DISPLAYS 
Displays are important even if you 
are doing utility or business programs, 
and vital to games. With some care, 
your display routines can be written to 
run easily on both kinds of video 
displays, and may end up with a program 


that runs faster as a freehee benefit. 
The goal is ta end up with a 
program that can be converted by 
changing a single line of variable 
Values. With care you can do a complex 
display that runs easily—-Backgamman 
displays a complete board, moves pieces 


around, displays dice and messages, and 
changes from system ta system by 
changing only two variables-the line 


Pa 


length and the position of the corner of 
the board. Everything else is derived 
fram those two values. 

There should be no absolute values 
in any of your displays unless the 
values will work equally well for each 
system. 

At a minimum you will probably need 
to assign three variables: Line Length 
T¢(L=64/L=32), Carner of the screen oar 
same other comman point ta start bath 
display, and Width (W-2SS/W=S2 oré64) if 
you plan to center things. You center 
by adding W/2 to a corner position. 


After you have set up the variable 
Values with the statement an the first 
page, you define the rest of the points 
you use in terms of the first variables. 
¢ you want a point 19 lines down fram 
the corner an both systems, (Cand 
assuming you s@t up carner as one of 
your variables) you define the second 
point as :FLi=CORNER+IOXL. To draw a 
line across the screen 19 lines down, 
the code becomes 
LOOFORX=FP2toF2+POKEX, 161:NEXT 

Movement is done the same way. 
Horizontal movements work the same as a 
single system program. Add or subtract 
one, Yertical movements are done by 
adding ar subtracting L rather than 
Si.,006 01,80 aoe 

I am not going to give a lot af 
specific examples as our programs are 
full af them and as you are an expert 
programmer, you should be able toa get 
the specific rautines tram them. I wild 
add that you cannot trust the OSI map 
for 2325 display -on the Cl. The 
display is claser to 25x30 oan most 
systems and is not centered as in the 
qraphics manual. T have included a map 
of the corners of both visible screens 
and the print positions far mixing print 
in graphics. | 


DON’T SCRIMNP OM DISPLAYS 


They are the most visible thing 
that separates us from 101 BASIC GAMES. 
They are what customizes a program and 
makes it marketable rather than useable. 

That also is true for business 
programs. They sell better if the 
displays are pleasing rather than just 
utilitarian. 

Remember that your printed 


statements must be read an both 64 and 
2a Wide displays. Tf you put in timing 
loaps too slow dawn the printed 


material, you will hore some users, 
imsult athers and lose the rest. Tf you 
have to divide the instructions into 
sectians, end each section with an 
input. Try INFUT"READY FOR MORE": Ast. 
No matter what the user enters, the 
pragram will continue. Tt isn’t 
nmecessary ta check far a negative 
answer-they won't input anything until 
they have read the display. 

Limit printe toa 20-25 
lines at a time. 


character 


CONTROLS 


One of the most common problems in 
programs sent in far evaluation is poor 
control layouts. This is a problem in 
business programs as well aS Games, aS a 
well planned business program may 
contain such things as menu selection, 
screen scolls, and other special purpose 
KEYS . 

I have a private and formerly secret 
belief that the first man to write 
computer games was a left handed sadist 
who hated the potential players and who 
was cross eyed to boot. 

There is no other way to explain the 
huge numbers of games that now use the 
keys (1) (2) (3), and (¢4) for 
caontrols.- they had toa be planned By a 
sadist. Consider the evidence. 

(1) As a majority of the world is right 
handed, the solitary player has to play 
the game with his arm crassed in front 
of his body and his wrist bent back at 
an eventually painfull angle. If the 
victim tires or decides ta rest his now 
aching limb, his palms will hit every 
key on the board, boot the disk, 
activate the break key, and scare the 
cat. It is a beautiful plan. 
(2) The second piece of evidence is that 
there is no possible lagical connection 
between the keys and the control 
functions. A typical game will have 
movement in 4-8 directions and ane or 
more special functions like "fire", 
"stop", "restart", etc. Thy typical thing 
is to make (1) move up (2) mave right 
=) move down (4) mave left (3S) fire (6) 


etc. There in normally no logical 
connection between the keys and the 
directions or functions, but it does 
have one "function". You will beat 
your friends all hollow until they learn 
the controls —- assuming they stay that 
long. 


Alternatives- 

You have to keep two things in mind 
for professional and easy controals. 

The first thing is that you have to 
have is some logical positional 
relationship between the controls. For 
instance, if you are going to move a 
cursor back and forth across the screen, 
use two keys side by side. The two 
shift keys are good for this. If you 
have only one person using the system, 
let him use both hands. He can do that. 
He isn’t a politician. He uses both 
hands to drive cars and golf clubs and 
he can keep them separated easily. it 
also gives a much mare spacious feeling 
to the game when both hands are used 
for contol. 

Similarly, if you are moving something 
up and down use two keys like the {esc ) 
and (ctrl) which are up and down from 
each other. I would alsa suggest that as 
some of the world is left handed, the 
space bar makes an easy to find control 
key for all users. - Just don’t use in 


in conjuction with the (9) key. Keep in 
mind that the users have human sized . 
hands the are jointed only in limited 
Manners. They do not have thumbs on 
both sides of their hands aor growing out 
Of the wrists sa keep the controls 
rationally close together. 

The secand major thing to keep in mind 
is that the cantrals must be visually 
distinct as the players or users will 
initially be searching visually between 


USes. That gives good reasan for using 
shift keys ‘(large and distinct) and the 
re, and (¢,) keys (they have arrows 


printed on them). {Esc), Louris IF G3 
and similar keys have the advantage of 
being an the edge af the board and 
therefore easy to find. Remember that 
the user will be looking for the contols 
under stress andiin aihurry. Make them 
easy toa find, easy ta understand, and 
easy to use. 

GOOD IDEAS TO LOOK FROFESSTONAL 


Do not use "Question (Y/N)" or 
(Yes=1/NO=2 constructs. OST supports 
real string functions and failure to use 
them looks amateurish. Simply ask the 
question and if it is a Yes/No type 
answer, do not specify the format of the 
answer. You don*t tell people you talk 
too how to answer. No one answers in 
French. Use the Left functian toa 
detect a "Y" or "N" and that will give 
you a yes or no unless the user is very 
weird. 

Drop the formality. Just as you 
dan*t tell sameone how ta say yes, you 
dan*t say "wish me to" when you mean 
“want me to" and you don’t say "May 
Tene’ When you mean "Can I...". Feoaple 
like ta believe their systems think. 
Help them aut by speaking colloquially. 

Do not insult the user. The 
novelty af the computerized insult has 
worn Off for all but the newest user. 
Dao not use any end statments, prompts, 
or victory annauncements that yau 
wouldn’*t say in person. 

Remember that people want to win 
games. They want a good fight, but 
reliable research shows that people will 
aniy continue with a game if they win a 
few at the start. No one either likes 
to admit that he needs to win or is 
Willing to continue a game that is 
frustrating. Real success calls for 
user se@lectable levels of difficulty. 
At least ane fairly easy version ta get 
him started and then a harder versian ta 
Keep the interest up. You can get the 
yarying levels by changing timing, 
scoring structures, and the complexity 
of the task but note: the levels must 
have meaningfully different skill 
requirements. Just rushing a game or 
making it impossible toa beat doesn’t 
count. 


Space is limited on a computer 
screen-particularly an the Cl. Lf you 
have a boarder with the main function of 
keeping things fram going aff the 
screen, put the border off the screen. 
The first non-visible space will do as 
well and auser limited to a 25 wide 
area ta play a game or read a display 
does not appreciate sacrificing 10% of 
it for borders. 

THE ARRDVARE RULES OF STYLE 


Tf you are like mast serious 
camputerists, you have at least one book 
am (SAGIG. Sryik. That puts you ina 
unique position ta benefit yourself, me, 
aur custamers, and the energy crisis. 
RURN THAT BOOK! Most such books are 
weitten by business programmers who use 
MINT rather than MICRO systems and think 
that everyone has 48k memory or magazine 
editars whoa think that everyone has 
large tax deductible system at the 
office. 

T read ane book recently where the 
author actually used a full line-72 
hytes-to give a simple remark. He 
suqqested that, as the user is blind and 
cannot read the work REM, you preface 
the remark with lots of KKKKKK to make 
sure that it is seen. 

Our typical user has 4k af RAM and 
Next most popular size system is 8k. tt 
doesn*t take many of those remarks to 
blow his entire program space. if: €8CC. 
our typical user, despite his self image 
as a thinker, is really a man who bought 
aM @xNpensive versian af an Atari video 
Gane. He is much more interested in 
features than in style. He would rather 
have twa more targets, ane more 
function, or another level of difficulty 
rather than a really pretty remark. 

Our rules af style then, are based 
On Giving the user the most possible use 
from his usually limited system. 

RULE ONE---DO NOT GO TO REMs 

Do not address branches ta REM 
statements. We will document every 
program, but aif room gets tight, the 
REMS will appear only on the printed 
version. Even if we don’t remove the 
REMs, the user should have the option of 
doing sa if he needs more roaom for 
additions. Therefore never have a GOTO, 


GOSUB, or THEN where the gone too is a. 


REM. All REMNS must be removable by 
simple erasure. 


RULE TWO---USE LOTS OF REMs 

This does not comtradict rule one. 
We mean removable REMs. Neither 
customers or myself are willing to sort 
out an unexplained program. Explain 
every variable, identify each routine, 
and, explain any unusual constructs. 
Don*t be afraid to put in more REMs than 
the system will run with. If you have 
followed RULE ONE, we can erase them 
before we run the program and keep them 
in when we print it. 


One REM should always be your name 
and address and phone number. Put it in 
as lines O-5, Your envelope or letter 
could be lost or separated, but the tape 
Will never be separated from program. 

RULE. THREE BOT Sc SPACES 

Spaces da not make the program more 
readable for any camputerist more than a 
few months into the hobby, and they can 
buen up as much as a third of your 
useable space. One extreme example was 
a "Sk" pragram we received recently. 
When the author removed the spaces and 
remarks, the program ran ain 4k and the 
market for it was tripled. 


RULE FOUR-VARTABLE NAMES 

IT have taken a solemn Gath that I 
Will burn the next program that I 
recieve that has more than °°? variable 
mames that start with K oar i é Y. BASIC 
supports wonderfull variable names like 
BALL, SEKVE,s, SlLDE. TANK, CAR, SHI, 
PENCE, SHELL, ROGKET, MONEY. CARD, SUIT, 
RALANCE, DAILY, MONTHLY, YEARLY, PLAYER 


and Author. Use them. They make the 
program readable and easier toa 
understand. Leave AXLa Key Xe cae ee xO and 


Y1,YS,.2...Y adnausea home. 

For the best balance between 
clarity and economy, use the full name 
first time the variable appears and use 
anly the first two letters after that. 

Aardvark customers are used taa 
few canventians in variable names. 
These are not required, But could make 
you program @asieir to read. 

Xa¥nl are used for temporary counters, 
usually in loops. They stare values 
that will not be reused later. If you 
need a fourth counter, use N SC or SCORE 


is used for scare. Cl and C2 or El and 
E2 are used far the corners of the 
screen or edges af the display. The tl 


desiqnates upper left, the 1 lower 
right. TIME for time. AF far target 
positions. This daes not follow rule 4 
well, It comes fram the fact that our 
first few qames were shooting airplanes 
(BF), FF is usually reserved for values 
fram FEEK statements. (P=FEEK,...) EK is 
usually reserved for Keyboard (37088) 
FI=F9 are used for FORE values for 
keyboard routines. L is always line 
length. poe | oat Oe (or) is used for any 
projectile position. 


As it says above, these are very 
aptianal. Several of them started when 
the company was new and would be done 
different if started now, HH X ar Y that 
the value is temporary and that Ci is 
always a reference point in the 
upperleft carner of the screen.-unless I 
decided toa break the rule that time-. 
RULE FIVE---MULTIFPLE LINE STATEMENTS 

The worst possible line of code 
that i Can think of is 
LOOFPRINT. The next three worst are... 

LQOOFORX=1TOSoO 
LIOPRINT 
LZONEXT 


Multiple statement lines have 


several important advantages. They run 
faster, load faster and save 
considerable memory on a small system. 


Normally a responsible programmer writes 
the rough draft in stretched format 
(separate lines for FOR and 
om) and then retypes the sections inte 
compact form as each section is 
finalized and debugged. Tt*s more 
work, but that is part of what 
‘orofessianal" means. Far NEXT loops an 
the same line run faster as the system 
does not have to process line numbers on 
each loop. 

A similar rule applies ta short 
subroutines. Micrasoft BASIC allows 
quite a bit of programming on a line 
after an IF statement. Do net branch 
out to a subroutine unless the business 
cannot be handled an the end of the line 
or you plan ta address the subroutine 
from several different lines. Branching 
to a location, search the line number 
for the subroutine, decode the address 
from ASCII to Hex, do the subroutine, 
and branch back. In a business program 
it is annoyingly slow and in graphics 
game annoyingly slow and in high speed 
game it is disasterously slow. 

When your pragram is submitted, it 
should be precise, clear, documented, 
labeled with your name and address, and 
campact. 


RULE SIX THE FINAL ONE! 

This is the one that every editor 
includes and always has ignored. Do not 
waste time and space telling haw 
wonderful your program is, how it will 
sweep the world, "totally change the use 
of OST computers" {a recent line an 
author used to explain a trivial utility 
program) or how much fun ait is. oe 
going to run the program. If it is goad 
I?ll probably catch on as my 1.0. is 
slightly in excess of 90 and I have 
several years in program marketing. 


Use the time and space to explain 
features, controls, and constructs that 
may be unusual. If it has a subtle use 
that is not obvious, explain it briefly 
please. (No one ever explained anything 
briefly, but I keep hoping.) 

| I am not trying ta imply that a 


little enthusiasm for your program is 
not proper. I tend ta get wound up a 
little when I discuss my own work. 
However , lets try to keep it down to a 
few Hurrahs. 

One more item has come 
draft was done. We are receiving 
programs now with USR machine code 
routines in them. Hefore publication, 
we need a commented dissassembly of the 
machine code routines. It need nat be 
fancy, but we will need to explain to 
users what the funny numbers do. 


up since this 


NEXT and sa 


MmOrEe , 


Of 


The BASTICs of machine-cade 
(reprinted by permissian 
of British Users Group) 


Over the past year we've hada fair 
number of comments on the lines af "All 
this machine-cade informatian you 


publish is fines but TT don’t even know 
where to start, sa it*s na use at all". 
Most people get an reasonably quickly 
With BASIC--it is, after all, desiqned 
to be a beginner’s language-—but without 
same basic idea af its coancepts and 
terms, machine-code programming just 
can*t make sense. The standard books on 
62002 programming, such as Zaks* 
Frogramming the 6302 and Leventhal’s 
excellent 6502 Assembly Lanquage 
Frogramming, da assume that you know 
rather a lat about the subject before 
they start--ar else, like Zaks, tend ta 
confuse rather then help! Sa for the 
mext few issues we’ll be running this 
Series aon basic principles and practice 
of machine-caode programming, ta be based 
on, and linked with, OST*s BASIC. We* 11 
assume mo knowledge of machine-code = at 
all--so bear with us if you do know the 
basics!'-- but we will assume that you 
have a warking knowledge of programming 
im RASIC, for games and the like rather 
than far complex mathematical juggling. 
RASIC is described as a “high-level 
language*® for programming computers. 
But it’s high-level only in the sense 
that you dan*t have toa think much about 
where things are -- the lanquage 
translates things like FPRINT statements 
for you, for example, without you having 


to know what is being PRINTed to, where 
it is in the system memory, how it is 
accessed, or anything of the ‘lower’ 


at all. But precisely because it 
handles these things for you, the 
language itself limits the flexibility 
with which you can use the system. It 
simplifies programming far some kinds of 
work--in BASIC*’s case, for basic 
mathematical functions--while making 
others, such as text-matching and fast 
graphics, well-high impossible. To do 
these elegantly and, above all, fast, 
they need ta be done at a lower 
level--the machine-code level. 

RASIC itself, of course, is made up 
of these lower-level machine-code 
instructians. In ROM BASIC, these can 
be seen by FEEKing the values stored in 
addresses 40960 ta 49131 (we’ll be 
dealing next issue with the meanings of 
the values you'll find there). - Each 
BASIC instruction consists internally of 
a long trail of routines and 
subroutines--every FOKE has to be 
checked such that its value doesn’t 
exceed 255, ar its address exceed 65535, 
for example--which is why clearing the 
screen by FOFKEIng it with blanks is so 
agonizingly slow. A single FOKE takes 
about LS milliseconds;, the equivalent 
LDA/STA machine-code instructions take 

microseconds-—-siqnificant 


level 


about is 
difference! 


Working im machine-cade, hawever, can 
be mare than a little 
daunting--particularly aif your only way 
of working with it is through OSf"’s 
next-to-useless monitor in the standard 
SYNMON, SYN600 and UFLIOL monitors. As 
you'll know, pressing "M" in response to 
the reset “D/C/W/MN?" prompt gives you a 
four digit mumber (Can address) and a twa 
digit number (the value at the address) 
in the top left of the screen--and 
that’s your lot! OSI does publish a 
cassette version of their very good — 
Extended Monitor  (ExMan)--supplied as 
standard with UFOs, otherwise about 8 
from most dealers. Otherwise we would 
recammend the CEGMOM monitor (not least 
because we wrote it!)--its machine-code 
monitor is designed to be compatible 
with ExMon, aif samewhat less flexible, 
and it does have the advantage of being 
built-in to the ROM monitor rather than 
a five-minute load from cassette each 
time. We will deal with the use of the 
standard SYNMOM monitor, but for 
simplicity most of our examples will use 
the ExMon or CEGMON formats. 

The difficulty with machine-code 
programming is that while the numbers in 
that four-digit section are relatively 
easy to understand-—-namely a system 
address--the two-digit numbers can mean 
anything, dependent upon context. The 
number 4C (Cand it is a number, a number 
in hexadecimal notation) could bea 
simple number (in other words 76 in 
decimal): part of a larger number stared 
im anumber of bytes: an index, or part 
ef a look-up table; an address, or part 


of ones an instruction (IMF--" jump’ to 
the address defined by the following two 
bytes): the letter "MM in the ASCIT 


codes or all manner of other things. It 
all depends an its cantexts it all 
depends an where it is. Hence a couple 
OF tools we'll describe in more detail 
next time: the assembler, which allows 
you to assemble machine-caode 
instructions into a program with some 
semblance of clarity; and disassembler, 

which allows you to disentangle a 
string of hexadecimal machine-cade 
Values into something reasonably 
decipherable. Hoth are essential for 
serious machine-code values works but 
for the smaller routines we"ll =be 
starting off with they aren*t all that 
important. OST’s assembler, for all 
systems including the UFIOIL, is 
available from most dealers at about 
#203 while there’s a disassembler 
already built into ExMon, and we'll 
also give a listing for a disassembler 
in BASIC in the next part of this 
series. 

The other catch is that almost all 
machine-code work is done in 
hexadecimal--counting in 
sixteens--rather than the decimal that 


BASIC uses. *"Hex"® takes a little 
getting used ta, but once you do know 
i it will make the layout of your 
system a lot easier to understand. If 
you’ ve ever wondered why your screen 
Me MC Y » for examole, starts at such an 
Gdd. number--S3248--it’s because in hex 
it is actually a nice round number: 
pooo, Decimal numbers count from O-9, 
then A-F (F is thus fifteen in decimal), 
and only then adds one to the next raw. 

The largest number a single eight-bit 
byte can handle is 255, or one less than 
256,2 (2 *overflows’*, leaving an 
effective ‘all-zeroes* in the byte). 
Describing a full eight-bit byte in 
decimal is tedious and misleading, 
especially as the 6502 processor has a 
separate BCD (binary coded decimal) 
>decimal’ mode of operation which 
doesn*t quite appear as true decimal on 
the outside. Counting in whole bytes, 
in 256’s, is hapelessly impractical; but 
half a byte (nicknamed a “‘nibble*!) 
holds up to one less than 2, or up to 1s 
in decimal (the processor counts from 
O-thus there are actually sixteen 
possible numbers in a nibble). We can 
thus represent the contents of any byte 
by two hexadecimal numbers:AF=175, 
4C=76. 

To reduce canfusion, particularly when 
using an assembler, the canvention far 
6502 ar 6800 processars is to prefix a 
hex value by a ‘dollars* sign: S55 is 
fifty-five, while #55 is eighty-five 
(Sx1l6, +5) in decimal. (Z-80 assemblers 
use a different convention: hex values 
have an ’H* suffix, thus SSH). Don’ = 
use the $ prefix when working with the 
machine-code monitors, thoughsthey only 
know about hex, and will only get 
confused if you try to tell them 
otherwise! 

Weiting ain machine-code is rather 
like writing in a very tightly limited 
RASIC. You have only three variables 
which you can use directly--the main 
registers A,X and Y--although you can 
operate on the rest of the memory with a 
very restricted range of functions. You 
have a very limited set of cammands and 
functions-—-na large-scale functions like 
* or MIDt, only the ability to copy or 
change the contents of the registers or 
of single memory locations. Soa programs 
have to be worked out in far more detail 
than they would in BASIC. 

However, it’s often easier to plan a 
machine-code program by writing it in a 
kind of "“dummy-BASIC’. The system's A 
register, or Accumulator, is used by 
almost everything-- a kind of high-speed 
Messenger. The oather two main 
registers, X and Y, tend to be used as 
counters oar pointers--hence their 
description as “index registers’. If we 
treat these as 


Machine-code instruction... BASIC 
LOAsc eee ee ee cee Oe es 
LA ce ae Ae oe ee ee 
Boy pee es ee a re eee ore a 
TAK vaca deed eu ROR 
(a. ee eee a ee eee cl 
Likeck suede ere mores 
STAs. eunneune ens “AOPPORE. anf 


We then get into the subtle game of the 
4302"s “addressing modes’. Unlike the 
Z-80, which has different instructions 
for everything, the 63502 and 6800 
processors use the same instructian in 
different ways, to increase programming 
flexibility while (in principle at 
least) maintaining same semblance of 
comprehensibility Thus the LDA 
instructian has a number of variations: 


A JMF oar JSR point to anywhere in 
MeMoOrys a branch to forward 127, to be 
precise, The branch instruction is 
followed by a one-byte 
“displacement*--which can only have a 
Value as a “sign flag, top-bit set. 
meaning "“-—" or back. The Maximum range 
is ~128 to +1275 but this is from the 
next byte ,so the effective range is 
“126 to +139 from the branch op code 


itself, It takes a little getting used 
8 

For demonstration, we'll show ane of 
the mast called-for routines-~ a fast 


screen-clear., In OSI’S BASIC, you have 
two “official? Options: scrolling the 
screen with FOR X=1 TO 32: PRINT = 


LDARS SO. wee  ATMMECL ATS wane nnn an =a2 
LDAB2O wwe wen "ZErQ-Page" ..s.es nn eae tABPEER CSE 
LDABOBSO. a eae "absolute? sn nae eee sARBPEER (C2K2564+ 352K 1) 


LDAS20, Xw.n.n0es ZEera-page indexed* A=FEER (32+X) 


LDASZOZO, Y..e.. “absaQlute indexed’.A=FEEK ¢ 


2sOroe RLY) 


LDACH2O,%).00. indirect indexed’ .A=FEEK (FEEK (32+X) 
LDA($20),Y.... indexed indirect’ .A=PEEK (PEEK (32) +Y) 


The last two may seem unnecessarily 
camplicated, but they are used a great 
deal to simplify the handling of loak—-up 
tables and the like. We'll be USINng a 
"STA indexed indirect" for aie fast 
screen-clear routine at the end of this 
article. 

Most programming uses loops, 
canditional loops and branches. BASIC 
does these with FOR:NEXT, 

TIF /THEN, ON/GOTOoarQN/GOSUB, GOTO 
andGOSuk, In machine code there are 
equivalents, but they sometimes work in 
a slightly different way. In 
particular, the IF/THEN tests are done 
against particular bits or "flags" in a 
separate “status register’, referred ta 
as the “F* registers the much-used REQ 
and BNE (branch if equal/not equal) 
tests check if the top bit in that 
register is set oar clear respectively, 
for that bit is set if the last LD.. (or 
same other “moave* instruction like ROL 
or INC) resulted in a zero value. . 


IMP ROOLO sn we we « »# »GOTOS2 
JERGOOZO. «a ww ee oe » GOSUBS? 


NEXT-~ which is Messy and inelegant: or 
*PORE* the screen with blanks’? —-— which 
is slow. For a C2 the shortest version 
Of the latter would be+ 

FOR X = 53248 To S5295 =: 
PORE xX, 32 : NEXT which, at a standard 
IMHz clock speed, takes a good 
half-minute. The BASIC versian af the 
fast machine—-code screen-clear is 
rather mare tangled: 
1s «ea eared 


4a ze eo eee Y=Q) 


ey ace tee HI=255 : FOKE HI,A 
BOs ee am LO=254 : POKE LO, Y 


Oe eee ee X=4 2 REM On 2k screen MeMar y 
(C2/4, Ci-E, etc) X=9 
60, en 5p 2 8 ft A= 32 


ri aS FORE (PEEK (LO)+256 x 
PEEK (HI) +Y,A 
BO. ccs ~Y=Y+i:IF Y=256 THEN Y=o 


POee nen ee TF YS 2O THEN GOTO 70 
100... e»POQKE HI, PEER CHI) +4 
oes eer X=X—--] 

i 20 we do ee TF X£20QTHEN GOTO 70 
130,...2..RETURN 


BNE. sew eee ee LE (last value) <0 THEN GOTO... 


BE. ween newness tPF (last value) =OTHEN SOTO 


UMP ($O0ZO) wa eeeee (* jump indirect’) GOTOPEEK (32) 


The last one is samething you can*t do 
im BASIC! It’s used by the SYNSOO and 
CEGMON monitors to pass RASIC’s input 
and output “vectars* through RAM, toa 
allow you ta drive your own devices 
directly fram BASIC-—-but more on that in 
a later part of this series. 

The 


Try running this as a BASIC 


praogram—-~you'll find it will take nearly 
twice as long as the simple “FPOKE the 
screen with bBlanks*. The machine code 
is as follows: 


*branches*-~-BEQ, BNE, BPL, BMI, BCS, BCC, BVS, BVC~-we'll 


mastly leave till later, but there is 
ane point about them which is important. 


Beaune LDAP POs cawas 
later SSFP... .0a1 STOHI. ..e00e ef OOLNE 
Gre yece eee litle weee cane oO “RAG 
Rieter e e LDAXPEO4. wee G00 6 |6fFOrF [USK Gere 


AUI00 bee ve hl VRBO ace ee SZOEPO . 
the LOCHI 
beginning of screen 


ens 


index for 
pair 


AICO wena ne Lh DARETZO. eee e ep fABCII “space” GIFE......,8TA(LO),Y....¢ blank 
the Gurren: LOCATION Cos waa ee a LN ae ee ae ee sbump up current lacatioan 
DOF Bace se eBNEKSueee ee ek SEN Looe bath untis "overflows * 

ohn gl gee ae ae LGCALL a wie ww ae & yhump up to point ta next “page* 

eee a eee i? ae ee ee ee ee ycheck last paqe not done 

DOP Ga eee es AT ND ie eee cai »vfand clear next page if not 

SO, wis oe wae AiGesvee ne ewne i G@isee return 


This gives you a subrautine that will 
clear the screen in about one hundreth 
af a secand--araund 300 times faster. 
The catch is that you have to be able to 
get at it somehow! Although the routine 
itself is relocatable--it has no 
absolute addresses within it--it has to 
he put somewhere. On the assumption that 
it will be used with BASIC, we can place 
it ain the “free RAM* area in page 
efaround S76 (610)-760O(b10) --$0240 is 
probably the safest all around. 

Using the standard SYNMON/SYNG6OO 
manitor, type. (for address) O240/(ta 
imput data as hex values) amd then each 
hex pair, separated by “RETURN Cx 
SEAR FDOL FADT 200" FAS and soa an ta 
DOLeF Si s6O00>, Each of these values 
should *roall* inte the two-digit part af 
the display: the two-digit area, to be 
replaced by your new value. After 
you've pressed “RETURN’ after the last 
byte, the 60, the address counter should 
read O2S7. 

With EXMON, type 0240, then each 
Value separated by LINE-FEED. With 
CEGMON, type.9O240 then type each value 
separated by, (cCommay, LINE-FEED or 
RETURN--it*s probably simplest ta type 
them is as in the assembly listing, such 
AS: 

AY, DO 

AQ, 0 

Since this is stored in that “free RAM’, 
it isn’t wiped aut by KASIC when you 
cold-start. Rut it is, af course, last 
when you turn the power off. We can 
presume that you don*t want to have toa 
type it in with the monitor each time 
you start your system! But BASIC can*t 
use hex--it only knows decimal--sa we 
have to go about it another way. One is 
to convert the whole lat to decimal DATA 
statements, and FOKE them in at the 
right addresses: FOR X = 376 TO 398 : 
READ ¥Y = PORE X.Y # MEXT DATA 149, 20d, 
160, 0, 1446, 255, i132, 254 DATA 1é2, 4, 
169, G2, 1435, 234, 2400, 208, 251 DATA 
oly Bids £iew 20, 246, FG 

A final problem, far this time, is to 
cannect this routine ta BASIC in such a 
way that it can be called direct as a 
subroutine within BASIC. There is a 
provision for this, in the USR(X) 


fFuUNnCTLONns« As usual, OSI’s description 
of this “"manual* is both aqarbled and 
wang ! 


USA CX) is used as A means not just 
calling a machine-code routine, but af 
transferring values to it if required. 
We don't need that part at the moment; 
the anly thing we need toa know is that 
the BASIC statement X=USFR(X) jumps to a 
machine-code subroutine pointed to by 
two locations. Im the BASIC manual we 
are told that these are 253E and 
eororo-which appears to be true far disc 
systems under 65D, but not far BASIC in 
ROM. The right locations are (decimal) 
i, and 12. They need a two-byte hex 
address, in the right order and, af 
COurse, converted ta decimal--just ta 
make things easier? The right arder is 
the law byte firsts a peculiarity af the 
6502 which apparently allows it ta run 
faster. If the start address of our 
screen-clear is a S76¢(6b10), convert it 
tao hexs$O240, The high byte is #02, and 
goes in i2¢bidods the law byte is $40, or 
64 (bid), and goes in il. Thus FORE ii, 
64 3s FORE i2,2 sets up the USR function 
ta point toa our screen-clear at $0240, 
wera tDi).. Note, though, that although 
the screen then--in fact to point at the 
FCffunction call) error--and will need 
to reset after cold-start. 

Ta set up the screen-clear: , 
a0 FOR A -276 10 S99 : READY + PORE x, ¥Y 
Ss WEAT 
OW DATA 169, 206, 260, GU, 155, 2Ooo, Ide, 
a4 
oo DAIA Jie, 4, 2069, G25 145, 204, <0, 
2069 sok 
40 DATA 230, 255, 202, 208, 246, 96 
oO PURE 11,64 £ PORE dase 

Thereafter, ta call the routine: 


A=USR (X) 


CiF HEAD LOAD/UNLOAD 
MODIFICATION 
RY EDWARD J. KEATING 


One of the many questions that OSt 
Owners have asked relates to the 
operation of the mini disc drive. Whiy 
doesn’t the disc spin down or the disc 
head unload from the diac. 


As to the question of drive Spin up 
or dawn, in the interest af increased 
throughput OSI has decided that the disc 
should remain Sspinning because it takes 


a 


1.9 seconds to insure that the drive is 
up to speed. (oO) om br 1) The 
line from the disc drive controlling 
motar on is always grounded at the 
interface connector board that plugs 
imtoo the 610 board. One af the problems 
that @xists in using motor on commands 
is that no obvious feedback 15 available 
fram the drive tao determine the disc 
apeed, other than counting index holes 
AQaLNSst aA pracessar timing loop. 
Additionally there is alsa na indication 
that the drive i6 even powered up, hence 
the reasan that ma “ERROR 6* will be 
seen by O563D. (the status line tram the 
FIA is grounded ta always return a true 
siqnal.) The life af the motor as rated 
by MFI, the makes of the drive, is 


quoted as appraximately 2500 hours can 
be abtained. The cast af the 
renplacement motar fram MPI is $30,00 but 


labar may appraximate tha (meantime 


tao repair 26 quoted at .a/haur) 


Qne madificatian that can increase 
the life of the drive is exceedingly 
Mi ricer . After I received a mini disc, 
610 board and capy af OS6ED ta add ta a 
"maked* superboard, one of my first 
undertakings was a camplete disassembly 
listing of the operating system. One of 
the interesting routines faund was 
inside the floppy disc driver module. 
This routine was responsible for timing 
the head setting time and taggling a 
line from the FIA FR?’ (pin 17) which 
ends up an cannector JS pin 1 after 
going through a 7417. (7S) The cable 
cannects this signal to pin 14 of the 
mini disc interface which if identified 
as DRIVE SEL 2 ar DSS. The subroutine 
in the driver was being faithfully 
called ta turn on the bit after a seek 
request , but before and read or write 
request, The other half of the routine 
WAS just as faithfully called after the 
read or write ta turn the bit aff 
(ground true siqnal). AS the CiF anly 2 
disc drives, I wondered if this might 
not be a superfluous carryover from an 
3° floppy disc driver. Since the Ci 
has access to just about all bootstraps, 
the 3 and 8° bootstraps are both in the 
monitor rom area even if addressed at a 
nan-runnable location. Consulting the 
MFil ainterface specification, the disc 
head can be loaded by either drive 
select or motor on but not an external 
SOUCCEe. Examining the schematic of the 
disc drive resulted in the modification. 

In essence, you must break the 
connection between pin 14 and pin 1 of 
the dip header plus (which was head load 
with PRIVEE SEL 32. I did this ona 
separate dip header plug and replaced 
the entire shunt. After this 
modification the DSS aor DRIVE SEL 3 line 
Will now load or unload the head and the 
drive will make clicking sounds. Also 


remember that no increase in delays are 
necessary because the routine always did 
exist in the system for head settling 
time anyway. ; 


Qn a 2 drive system this 
madificatian may require an additional 
"AND® gate to mask DS? with the current 
drive select, otherwise both disc heads 
Will load oar unload at the same time. 
This extraneous system, but may become 
annoying after a time. 


This madification has been done to 
several CiP*s with no apparent problems. 
In fact it allows easier removal and 
re-insertian of diskettes without 
bumping the disc head causing the ERROR 


= 
wt 


LIPPER RIGHT CORDEE. 


WE GET LETTERS 


CARL M. FING, SARASOTA, FLA. 


IT have picked up some excellent 
Suaqgestions from the JOURNAL. In my 
major program, which I call coco 
Surveying, I have occasion to tabulate 
the results of a series of calculations 
in a table of itemized coordinate pairs. 

Earlier I had decided that the 
tabulation would look much nicer and be 
more readable, if we could justify the 
decimal point location in each column, 
much as it would appear on an adding 
machine tape. Well, I worked out a 


Slow and byte cansuming routine for 


doing it, but I was not entirely happy 
with it. Isn*t BASIC amazing! You can 
obtain the same result in more than one 


way. My method was to calculate the 


cammoan log of each number, and subtract 
the characteristic from the TAR. spacing. 

It worked, but it was slow and 
expensive in program steps. 


: Was thrilled with the suqgestian ai OOED..... BNE HERE?..: 
ee ee ee a asa zs QOEF.....U0MP $0022..: execute screen clear 
- "STRINGS FOR DIGITAL MANIFPULATI = OOFS.HERE2? CMP #%1B.:; cmp to escape 

S50 naw I have a neat new roautine, which O0ES..... PNE END... 
ee eh ene re ere ae ae QOF7.....0MF $AOBS.; execute list aa 
instructive, and I am pleased to NOFA END RTS...... st WJ 
contribute the follawing sample 
program: 

0S i he oe ka se EEE pe ; push A to stack 
. ; AD ae oe Bowe ex LDAX$20...8 load space character 

300 N=N+iEPRINT Ny aREAD X:¥=10:GOSUE ce ae LDX##00,..3 load accx with O 
SOOO 7 ener: Q227.CON.STA $DO000,X; stere on screen 
S10 READ X:Y=28: GOSUBSOOO: FRINT: ee ee STA $D100,X: " 
GOTO309 O22D.....STA $D200,X3 " 
FOO] WEARS (X) & _4=LEN (STRBCINT CW) ds TF oe ee STA $D=E00, Xs N 
ee Uy teas es ah Ose athe eee: increment x 
Se Ee ee ee ae ORT Ac wax ENE CON....$ Branch back to #022 ‘ 
SOLO  PRINTTARLY~2Z) ns ee = Sein an a ee ee ae 2neek PULL A From stack 
id BET eae ie gaa Rat ae OS wie ea ik eee ee ree ; return from subroutine 
»Oo4521, 1234.56, ~O452 ‘ 
6010 DATA 123.4564, 65,4321, 12,5436, Listing = « 
654,321, eeoteG, GoI45.el 

aes 7 B4a2.1, »OL23S456, : ; 
Ree Pale ese a Saar nm oa 240 FORX=2187T0249: READA: FOREX, A: NEXT ; 

wb Ly wT, et ra 5 tt tae é ay mF} “+ oy < “ES i mC) 

yr ; ra A Ae aie = woe e = et) DATAS2S,42, 2, 201, ya ec. 2, We. 1 oF gy tarde d gy oo 
ciclo . DATA a ets eee x owe 14159, De) DATALS, 208,23 oa an 150,255, ao, Zs ne Wee 34, 44, oe 5 
maa eR AC he OO ete antes 270 DATAZS4, 234, 201,27, 208, 3, 76,181.164.96 

z, ee 280 PRINT XCONTROL VERSION #1" 
re alarat = = age AIAN, MI : aves 
MR. CHARLES STEWART, ADR 295 PRINT: ERINT ae 
270 PRINT "EaG LISTS "ss PRINT’ RUBCIT GIVES 
Re ee ee ee a ee 295 PRINT"CONTROL S=SAVE":FPRINT"CONTROL L=LOAD”" 


language programs which give the CIF the 
following functians. (note they should 
also work on the C4) 
Control -.. places 
clears as usual 


unit in load return, 


Cantrol-S places unit in save mode 
Escape — performs list function 
Rubogut — machine screen clear 

Listing #2 is the machine code 
Utilized, ‘Listing #1 is the basic FORE 
program. Listing #3 is the same routine 


with the reference to RUBOQUT removed and 
input routine referenced to the 
beginning af the CiF cursor control 
program. If listing 3 is laaded with 
cursor cantrol ait gives all cursor 
functions plus the control functions. 


LISTING #1 


60 FORX=2187T0249: READA:FOKEX, &: NEXT 
“0 DATASE, 106, 255, 201, i?, 208, 3, 32,139, Ae ie ek 


OO) 


POREOSG., 2leePOKe G37 , 0 


DAVID RODENBERGER, COLUMBUS SROVE, OF 


I have 
months now, 


used my OSI C4F far about 6 
and have became very tired 
Of poking S6832,1i every time I Bring up 
my system from a cold start. 5a | 
decided to da something about it. After 
looking over the schematics, I found 
that the problem would be very easy to 
solve, All that is needed is ta 
conmect awire from one of the 
integrated circuits to the break key. 
Then when you bring the eystem up and 
hit break, the color and sound is 
automatically reset to off, 


LIFT THIS EMD 


a 
aoe OF RESISTOR 


rt 
LIF _ 


80 DATAL9, 208, 3,32, 150, 255, 201, 127, 208, 3, 76 
90 DATAS4, 2, 201,27, 208.3, 76,181,164, 94 402 8D 
100 FOR X=5467T0567: READA: FOREX, @: NEXT | 
110 DATA72, 169,32, 162, 0, 157, 0, 208, 157,0, 209, 157,0, 210 nN 
120 DATAI5S7,0, 211,232, 208,241,104, 96 9 
150 POKE11, 34:POKE12, 2:POKES36, 218, :POKES37,0 AS . 
160 X=USR(X) :PRINT"XCONTROL VERSION #1":PRINT"*BY CHARLES 4. STEWART" 
165 FPRINT:PRINT 
170 PRINT"ESC LISTS":PRINT"RUBOUT GIVES SCREEN CLEAR” : 
180 PRINT"CONTROL S = SAVE!:FRINT"CONTROL Lo = Loap" 
200 NEW Lae 

LISTING #2 | ax 

ee 

VRDR a6 «6s JSREFFRA input subroutine 


QOODD.....CMP #$0C... 
OODF.....BNE HERE. . 
QOE1.....JSR $FF Se, 
QOOE4 HERE CMF #413, 
QOES.....RNE HERE1.. 
QDO0E8.....0S5F $FF 9S, , 
QOER.HEREL CMF #47F, 


campare ta Control L 
Branch if not equal 
execute load 

cmp to contral § 


Execute save 
cmp tao rubout 


“HR RE MVS “BR me ‘ee an ne 
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The first thing that must be done is 
to remave the Gix screws from the battam 


plate. Then revame the ground wire from 
the boattam plate. Next turn the 
camputer upside dawn with the keyboard 


ta your lett. Remove the balt fram the 
lower left carner of the SO? baard. Now 
ramave the two conmectors from the lower 


right and remave the S02 baard. Set it 
aside. Naw refer to the IC layout for 


the 340 board. Lacate IC U46. Attach a 
wire about Le inches lang ta pin one of 
the IC U4G and route it over ta the 
break Key. Attach the wire ta the pin 
clasest ta the frant of the key board, 
an the break key. Tig pin goes toa the 
reset pin an the micropracessoar. 

The mext step i6 to reinstall the Soe 
board being careful moat to bend the pins 
or the board. You could damage ait. 
Locate the microprocessar an the S02 
hoard . This i6 the larqest IC an the 
board, 40 pins. Locate the twa 4, 700 
ohm resistars at ane end af the IC. 
Remove the langest wire af the resistar, 
clasest ta the micrapracessor, fram the 
boar. This finishes the modificatian. 
We remave the resistar because there is 
already a pull up resistor on IC U4G pin 
aie, sa you doan*t need twa. Alsa, it 
isn’t goad practice ta rave two pull up 
resistors on the Same oir. 

The chip yau hooked the wire to is a 
flip-flop and pin one is the reset. Sa 
when you bring this pin low by hitting 
break , you reset ait alonq with the 
pracessar. Have fur! 


GEQRGE FISHER, ARLINGTON, VA 
Received my arder and the back issues 

of the Aardvark Journal". Was mast 
pleased with the Journal, as I ama 
newcamner to the “info-qap" world of OST. 
My experience began about & month aga 
when Io acquired a Superboard If. 
However, this turned out tao be the new 
praductian hoard (Series 2 GF revision 
D 1980) and it has ai number of 
changes /features different fram its 
predecessar., AS yau may mot have 
encountered this yet, I will try to give 
you a Summary of the differences (as far 
as I have been able to qo). The 
dacumentatian is mot one of the 
improvements. 

i New circuits have been added ta 
pravide an automatic reset an power-up. 
Also, this mew circuit is desiqned so 
that the «BRE? key must be held dawn 
about 3 seconds to initiate a reset. (A 
big help far fat fingered typists.) 


a The board comes with the RS-232C 
Circuit fully populated and wired. 


ain The cannector J4 has been changed ta 
a -2-pin molex which 16 used for output 
(maise) of the DAC. The DAC is now 8 
bits, and has the components (resistars 
and diodes) installed and must he 

enabled via the program. (Foking various 
Yalues inta lacatian S326) The 


keyboard busses which had been brought 
out to the J4 connector are no Langer 


available at a connector. 


i4 


4, There area few ather mew 1°86 an 
the board and three new empty sockets-toa 
accammadate colar videao expansian-ane a 
ST28, ane a 2114, and the third is a 
canmectar far colar board 
interconmnmectians. 

a Teo pre-recarded tapes in additian 
ta the dema tape are also included. One 
ig called Video Swap, which changes the 
Video drive routine and gives an 


optional 48 character x 12 line video 
Output « The other, i¢ a program which 
permits the camputer to be used asa 


(almost dumb) terminal. Now far what 
didn’t came with the computer. There 
were ma schematic diaqrams ar part 
layout diagrams. f ff called OSI and 
asked far "Customer Service", but IT was 
told by aperatars all such calls or 
inquiries must be made to their 
dealers....). A helpful dealer did send 
me Xerax copies of the diagrams, a bit 
herd ta read but better than nathing. 
Also, there are no instructions an haw 
ta cannect up the RS5-2232C ar modem 
Gutputs in the manual. The cannectar I 
(which has the various in & out data 
connmectians) hase a plug on it with three 
jumpers. Yet ma info is pravided an 
what these leads da or should ga ta for 
eather canfiquratioans. 


C.W. AITGELDINGER, AMHERST, VA 


Not janly does the addition of the 
Aardvark Sound Gen. Hoard open new 
passibilities of generating sounds and 
computer generated saund effects far 
programs e@tc., but the board also has 
gBpecial treat. 

The board addresses OFFS 
and OFFS? aff the address buss using 
2-740" so and ane /74L5138. These 
addresses are dedicated to enable the 


decodes 


souid generator and its many functions. 
Wed | the 74Ls5ise (3S af 8 decoder) alsa 
generates 6 more distinct addresses. 


These addresses are generated, but they 
are mot used by the sound board and can 
be used for any pupose where 1 aut of 
65536 addressed are needed. 

Qne example af using these’ 
addresses: This 185 a sample CIF 
Madification which will Give the user 
pragqrammable full screen This is a 
sample CIF reverse video under keyboard 
aor program cantroal. On power-up the 
madificatian ais disabled (normal video) 
and will anly switch to reverse when 
prompted to da sa by keyboard ar 
pragram. IIb requires minar modification 
ta the LIF and minimum cast when used 
with the Aardvark Saund Board. 

This modification requires the 
cutting af the runs going ta pins 4 and 
oo Ff i770 en the Clr, Qnce this is done 
then shart wires can be run to a secand 
board cantaining the 74Lso7S and 74Ls0o09., 

Qnee the modification is installed 
it works like this 

On power-up the 74L5o74 flip-flop is 
preset to a hi canditian an its @ output 
which is the controllina imput toa 


asgsentially and exclusive or package 
formed by the 74LS00 and U70. (when @ is 
hi normal video is displayed. When OQ 16 
lo reverse video is displayed.) | | 
When reverse video is desired all 
that is done is to use the command: PORE 
“ORR, OO | 
hae or in immediate mode ar from 
program cantrol and the display ha 
reverse to restore the display to rich MEX 
the same command is used again and the 
display will return to normal. Any pais 
to 2355 (decimal) can be poked 


t) 
nae 409588 dec. (OFF E Hex) Since the 
data is not used Coniy the actual 
enabling of the address is necessary) 
If the command is used in a for 


next Loop: 

10 FOR R= 1TQ2z0 

320 PORE 40958,00 

=O MEXT within another praqr am 
then a striking attention getting 
display follows. This is useful toa 
bring attention to any part of a program 
(errars @etc.). 


Deco Dias AB - AIS _ ADDRESS. DECODED 
GFFO Dx 
GFFET S GEOERATOR 
FFA 
FFB 
pila OSPEL FIC. 
CIA/ ESE O 
ADDRESSES 
OTe, Rw 3 q 3 


Hi= NOLMAL 
« FEV, 


DICK SWEET, ST LOUIS, MO 


Tack this short sub-routine at the 
end of any documented program, turn your 
cassette on toa record, and type 
RUNG3000, When the program is finished, 
load the new tape on top of your 
Griginal program and have a condensed 
Yversian ready toa run. 


Two cautions: Flease make a tape 
oF your well documented program before 
running at SOOO, and never make your 


REM statements start at anyplace but at 
the beginning of a program line. 
REM ERASER 


e000 I=FEER (124) k254+ (PEER (I2S5)): 
SAVE: FORX=768TOI: REM FIND THE END OF 
THE FROGRAM AND LOOF TO IT 

SOLO IF FEER(X)=142 THEN @P EER (X-2)+ 
SOOKPEER (¢X-1)) REM LOOK FOR REM 
STATEMENTS AND SAVE ON THE TAFE THE LINE 
NUMBERS THEY AF FEAR ON 
62020 NEXT: P6S000: P6BOLO: P6ROZOs REM 
ERASES THE REM ERASER WHEN THE NEW TAFE 
TS LOADED, 


TODD BAILEY, GREENVILLE, OH 


Jo Gliminate the annoying little 
bug that you get when cambining the 
MINOS game with the CiE chip (the maze 
takes forever to come up and sametimes 
never does), add the follawing lines ta 
the pragrams 

97 PORES6O,H+6s REM H=HORT ZONAL 
Size OF MAZE 

1207 LO=O:REM SET NEW COUNTER 

1275 LOSLOTPe TFL = PEERCS6OO) . THEN 
RETURN: REM INCREMENT COUNTER, COMPARE 
COUNTER TO SIZE OF MAZE AND KICK QUT OF 
LOOP WHEN READY. 

Also CilE Cand CBE) oawners can 
enhance the AARDVARK adventures by 
taking advantage af the machine code 
Save ta preserve games in process. PEEK 
memory location LSS and 134 (DEC) to get 
the LO and HI bytes af the top ef your 
pragram, including all variables and 
Strings. Tf you are saving an ADVENTURE 
running in 8F RAM, just use $00 as the 
low byte and $20 as the high byte. TRis 
saves everything up ta Bk, When you get 
ta the point that you want ta save your 
pragram, Hit the BREAK key and answer 
“Tr S60 che D/L/7W7h oroempt tea go 2nte the 


manitar made. Hit °S’ ta start the 
SAVE made. Enter your starting address 
($0300 for the base of a BASIC pragram), 


then enter the end address, hi byte, law 
byte, (remember to change the DEC FEEKs 
fram BASIC back ta HEX to use with the 
monitard. Enter your restart address 

(im this case use #FE7O toa jump back ta 


the load made. After you have saved 


this anto tape, enter “*S* again ta qa 
back to the save mode. This time use a 
starting address af $0000 and an end 
address of $0086 with a restart address 
of $0000 and save this on the next 
sectian af your tape. The program is 
now saved. le igfea 2t back in, cold 
start your system in BASIC, Then BREAK 
and qo toa the monitor made, hit jump 
back into the load mode ta lacd = your 
pointers, and then jump to a warm start. 
After the “OF* message, run the 
program with a GOTOCline number of the 
"vour cammand"” line. Da nat use the RUN 
cammand as it will overwrite the 
Yariable you yuUst loaded. You are now 
right back where you left off. 


GARY WHEELER, SAN DIEGQ, CA 


T was quite pleased ta see the CIF 


Video mod in your December journal. I 
did however have a little bit of trauble 
building the mad. 


* 


First of all, the resistor of the 
123" is unlabelled. When TI called 


Aardvark, either Jane oar Judy told me 
it was 200 ohms. This worked fine, 
although Io had ta replace the 47pf 
capacitar with a .Oo0O1l uf capacitor. 


secandly, I had same stability 


problems. This didn*t bother me until I 
shartened the resistor leads to a bare 
minimum with na improvement. Ta wark, 
the circuit requires some capacitive 

coupling between the HS and the STOF 

lines. Lack of this gives grounds for 
the "fuzzies". Ta cure this, disconnect 
Bin | of the “1235 from the RC network 


iz 


ang Fon 621) 2 and Cannes r it £6 pin ss. 
the STOF line. This lacks the video 
clock toa the HS line and cures the 
fuzzy character problems. 

Fimaidiy, fo had some wrap-around 
problems. Although this i168 a quirk of 
my monitor, athers may have the same 
trouble. Its symptom is having the 
white bands, resulting when you stop the 
clock, reflected halfway acrass the 
screen. The cure is a Simple ane, change 
the white bands to blanks. This simple 
circuit does that: 


pin 6 of U70 To R51,R58 
STOP 


Unfartunately, the Superboard daesn’t 
have a Spare AND gate Sa you must use 
your Ow. 

Although, f had a couple of minar 
prablems, the mod works great and I am 
Yery hapoy with the results. 

While the Sex 32 display created by 
this display is good, a 32x64 display is 
ultimately meeded far same applicatians 
1.6. text editing etc. Wauldn*t this 
scheme work? Cannect two more 21l1i4*s to 
the VA and VO lines af the video 
circ trv: Cannect pin 8 af bath new 
rams ta the unused multiplexer af USa. 
Supply the apprapriate inputs ta the 
multiplexer and then cannect pin 1O of 
both rams ta the appropriate pin of U2oO, 

With this installed, adjust the video 
clock to a frequency twice that needed 
for the Sexae display. This shoauld give 
a 32x64 display to Superboard owners. 

EARL MORRIS, MIDLAND, MI 


The February issue of the Aardvark 
Journal comtained an article aon reducing 
cassette loading errors. YT would like 
to suqqgest a hardware change and a mare 
scientific manner of making the timing 
adjustment. 

Relaw is shown the input circuit far 
O50°s cassette tape interface. This 
circuit has two problems: The anput ta 
the amplifier has no D.C. path to ground 
and the input is coupled by a capacitor 
but since the amplifier has a very high 
input impedence, respanse extends ta low 
frequencies. A cheap and simple fix is 
ta aiunstall a #.95 resistor fram the 
input capacitar ta aground as shown. i 
used a value af 2/k ohms. This maw 
Gives the amplifier a O.C. math ta 
graund and creates a high pass filter 
with a corner frequency af 600 cps. 
Noise and hum at 60 cps are attenuated a 
factor of 10. After making this 
madification, the volume control setting 
aon your recorder will be much less 
critical. 

The second suggestion regards 
adjusting the timing of the one-shot. 
Do mot canfuse this with the baud rate 
adjustment which 18 set at 4800 cps as 


ADO 2IK nee 


per the previous article. The one-shat 
Circuit determines whether the input is 
at £200 <r 2400 Cos. The trip point of 
this circuit should be near the 
Geametric mean (1700 cos) af the two 
Frequencies, 
requires that an audio oscillator be 
connected to the cassette input port. 
If a voltmeter is connected ta the 7474 
flip-flop of the cassette Circuit, the 
meter will change fram YOoLts to zero 


CLorrect adjustment 


Vo! 


as the frequency of the ascillator 
PAS Ses through the trip point. tf the 
Frequency is much defferent than 1700 
(IPS y the oane-shot trimpoat must he 
adjusted, 
1800 cos should be Cacaed . 


Anywhere between 11600 and 


CASI SQ 
TAFE (NQOUT | 


RERRY LOURASH, DECATUR, ILL 
SCROLLING" DOWN THE SVENUE 


Here*s a shart ML. routine, relocatable 
anywhere in memory, that scrolls the 
Screen dawn instead of up. It has the 
exact apposite effect of a PRINT that 
doesn’t print anything. 

When IT was a novice (not long aqo!), 
the screen scrall was a fascinating 
mystery. Now that I knew how it works, 
F still think it’s a neat trick. Let's 
take the CiF as an example. The video 
display is organized as 32 rows of 32 
calumns. If you look at the table in 
the back of the OSI graphics manual, you 
see Chat each memary lacation from #DoOooO 
ta $DSFF is assigned one small area of 
the display. Those af you whoa have done 
some graphic experiments know that, to 
make ai character move straight Up, you 
subtract 32 from its present address in 
Video memary and put the character in 
that position. 

The scroll rautine in BASIC does the 
same thing, but on a larger scale. 
Starting at the top of video MeMary, iat 
transfers the cantents of each memar y 
location to the row above. When the 
scroll is completed, the home line, the 
line the cursor QOCcCupies, i6 cleared. 
Qnily the home line must be erased, since 
each byte that is moved takes the place 
af the old byte in that location. The 
SscraQlil routine is part of the video 
GQutput routine located at #BF2D. 

My scroll routine moves each byte down, 
Pot Us Zero-page loctions #$50-%1 hald 
the target address and #52-SS hold the 
source address. The Y register is used 
aS a counter for the individual Video 
addresses and the X register counts the 


ADDRESS CODE 


(ae 
yi 8 
oe 
AO 


we) 


O130 AGHF... 


DOWN SCROLL ROUTINE 


MNEMONICS ¥-CHANGE FOR CLIF 
»LDA ##ERF XDF load start address 


pages (1 page equals 256 bytes). Since 
there is nothing to scroll into the top 
line, it must be cleared af the garbace 
loaded into iit. Ry the way, this 

garbage is the result of trying to read 
The home line is 


2 B550...0858TR S50 non-existant memory. 
4 A®OSFF,..2.LDA EFF also cleared, although this feature i 
& S3S2.08651A S52 optional. Turn it off with a FORES46, 76 
8 AQD7....LDA #BD7 DS and restore it with FORES4S, 162. The 
A S8351...2.57TA $51 routine is meant toa be used as a USR 
C BSaSe0cn ble #a3 routine, Set the USR vector with a 
E AZOB....«LDX #08 k4 : page counter POKEL1,48:POKE12,1. He warned that the 
O14 Ao, ...LDY FOO » byte counter routine is located in the stack and 
2 b1SG.eewkDA (300,.Y £ scroll i oyvte could te partially destroyed under same 
4 OLS eww etei eh (BS) aX conditions. Toa relocate the routine, 
Go Goeve eee DEY . copy the bytes in a different sectian of 
7 DOFS....BNE $0142 mamory with the monitor or change the 
9 C6S1....-DEC $51.....3next page values of X in line 10 of the BASIC load 
BE C65S.0.2..0EC $52 program. Just for fun, see the effect 
0 CAs. esse DEXsneeweeu ne POecrement page counter of changing location 20S (normally SBF 
-E 1OF2,,...8FL $0142 or i191 decimal). When using this ° 
O1SO AS40..,..LDX ##40 *20 serase tap line pragram with the Aardvark cursor 
2 O820.a ae akDA ##20 contral program, the address af the home 
A 9D0OODO..STA tDOOO, X line should be changed. For the Cir, 
7 GAawe wen DEX change the first data element in 
8 DOFA.... BNE $0154 L1ineSote?6) ta 64. I?m not sure about 
A AZ4O....LDX #$40 *20 sblank home line the CeP, but I think it should be (192) 
C 9DCOD7..STA #D7CO,X xkDE60O, Aardvark—-D340 to L2t. 
P GAs «we ae DEX 
O160 DOFA....BRNE $0135C 
2 lea ww we RTS 


FORX=304 TO 
DATAL49, 191 
DATAB, 160,0 
DATALS, 242, 


BASIC LOAD-C2F 


oo4 sREADAs POREX,A:s NEXT 


133,80, 169, 255, 135, 82, 169, 215, 133,81, 13535,83,62 


177,80, 145, 82, 136, 208, 249,198, 81,198,83, 202 
1462, 64, 169, 32,157, 0, 208, 202, 208, 250, 162,64, 157 


DATAIGS, 215, 202, 208, 250,96 


BASIC LOAD-CLIF 


10 FORX=304 TO 354 :READA: POKE,A: NEXT 
20 DATAI69, 225, 135,80, 149, 255, 133,82, 169, 211, 135,81,133, 83,162 
BO DATA4, 160,090,177, 80, 145, 82, 1346, 208, 249, 198,81, 198,83, 202 


4c 


wQ 


10 


DATA1I4, 242, 162, 32, 169, 32, 157, 0, 208, 202, 208, 250,162, 32,157 
DATAIG, 211, 202, 208, 250, 96 


DEMO FROGRAM 


O FOR Z=1TOS2: PRINT: NEXT 


110 PORE11,48: 
X=USR CX) sNEXT 


PORES, 1:FORY=1TO9:PRINTUAC"Y") "ss INPUTACY) s 


120 POKES44, 96: POKE305, PEEK (305) -1:DATAR,E.V.,E.RsSsE 
130 FORI=1707: READAS: FRINTAS: X=USR (X) PRINT: NEXT 
140 POKES44, 162:FO0KES05, PEEK (305) +1 
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NEW AT AARDVARK 
The single stepper/monitor 16 now 
availlable an tape for $19.98. Dave Edson 
has come through with a couple of ner 
machine cade qoodies far the CIF. We 
now have Interceptar, Collide (#9.9S3), 
and Monster Maze ($12.95) for the CIF. 


We have a new 6k ram board for the 
tent’ « Tt comes with instructions ta 
adapt it ta the CE/C4/CEAF"*s also. The 
hare board is available mow for $39.95. 
An assembled version of both the FROM 
Rurner and the Memory boards is in the 
worke and both should be available 
befare the next issue comes out. 

Chuck S8ecatts* super super disk is now 
avallable. It Nas a 14 character file 
name capability, the new machine cade 
editar, and a disk manager with 
Capabilities like disk packing. It 16 a 
great 65D @xecutive - and we are 
selling it as Superdisk IT for $39.98 


Haw about this for a great diaqnostic. 
We have a digek speed analyser on disk. 
It reads aut disk speed accurate ta 1/2 

Aw £5 Bellis for #6. 9S. 
CLASSIFIED ADDS 

Cir MIMI PLOPPY <MOUEL it) <4h RAM. SO9S. 
THIS TS AGRDVARES warkhorse CIF. Tt has 
been uged alot but is still in good 
shape. Can be had with S2k ram installed 
or Sy. 

RADIO SHACK QUICK 
ROLLS OF PAPER. 
foe SOBS or (O13) 
ais 


FRINTER ITI AND 4 
$140 Todd Hailey. (S13) 
S48 2312 after 3. 30 


AROUT THIS MONTH’ S FROGRAMS. 

loam qoing to include Rattlefleet and 
Slashball as this months software. The 
ostensible reason is that they show goad 
cantral setups and that Rattletleet 
demonstrates the mixing af FRINT and 
FORE graphics on the same screen. 
Rattlefleet alsa demonstrates that you 
can pack ao tLloat of data and do a lot of 
programming ain 4k, IT spent a lot of 
time getting it in what was then a 
standard sized system. 


Those are the official reasons. The 
real reason is that they are two fun 
games that everyone likes when they play 


them and which no ane buys because they 
don’t describe well in a cataloq. I want 
to show them off and have peaple enjoy 
them and since no one has bought them, 
we have ta print them here. 
Slashball is diabolical. It looks 


simple, but gets very hard after the 
first few rounds. The cantrols on that 
one are simple but take real skill ta 
MAaSter. 


Lo 


BATTLEFLEET wae one af the first 
programs - ever wrate and ane of the 
Main reasons I purchased a computer. Lt 
ig a very camplex form of Battleship 
that I once played with friends. 
Unfortunately, the bookkeeping involved 
made it impractical ta play without a 
camputer. There ais virtually mo luck 
involved in the qame! 


The computer will hide 3 ships in the 
ori. They are two dimensional, “£x6& 
squares. and may be harizontal, 


vertical ar on a 45 deqree slant fram 
lower left tea upper right. They will not 


The really hard 
Will have ta ire 
at a time and will he 
hit - not which anes 
That you will have ta 


averlag but touch. 
part is that you 
YOolleys af 6 shats 
tald anly how many 
or an what ships. 
test to determine. 
You fire with a gunsight that initially 


Mey 


appears in the upper left corner of the 
grid. You move the sight with (¢£) and 
(>) and the CU) and (¢D) keys. {(quess 


which ais which). You fire at the arid 


poink under the sight with the (F) key. 
At the end of six shots. the system will 
display the number of hits. When you 


Cor run out of 

displays the 

you sart 
cammancd 


Ships 

will 
helio 
Review 


have sank all a 
ahells) the system 
qrid imaqe. To 
vYOlleys, there is a 


aut 
iT) « 


To review, press (R) and then tell the 
system which volley you want to start 


with. 


- with the oafrfice 
can 


Just a reminder 
now located away from aur home, we 
anly answer questions an arders (ar 
anything else that requires ug ta | 
consult the files) during the hours of 8 
aM ta & FM (Man ~- Frid when the office 
ataf ft (namely Judy) is here. After as 
we can take orders (ar. questions if you 
don’t mind calling back the next day for 
but that’s about the limit. 
We're still getting phone calls at 
eatrande hours (2 AM and sa arm) . 
Rodgers echedule varies a lat 


an amswer) « 


now as 
administrative duties take mare and mare 
time, #0 we're often asleep 


of his : 
and as the phone rings at the 


then, 
MOUS Eau 


10 PRINTS PRINT BATTLEFLEET":FRINT"COPYRIGHT 1978 R. OLGEN":FPRINT:PRINT 
1S FRINT"HIT SHIFT TO START" 

17 [FPEEK (57088) =10RPEER (57088) =254THENR=RND (89) :GOTO1L7 : 
20 LL=64:GL=S40Q3: [FPEEK (37088) >127THENLL=32: GL=53608 

30 DIMST(180),H(30),0012),A612),8012),0(12) 

32 REM DIFFICULTY DETERMINES NUMBER OF SHELLS. 

35 INFUT"HOW GOOD ARE YOU (1-10) "sX%sSk=179-4kx 

36 REM MAKE SOME SHIPS 

40 PORES 4900, 0: =F+1:F RINT’ WOREING ON SHIF "F 

SO Lei:M=INT (PxXRND (G) +1) sN=INT (OXRND (8) +1) 

60 ONRND (8) *3+1GO0TO70, 110, 90 

69 REM HORIZONTAL SHIPS 

70 S=LLEN+M: FORX=OTOS: FORY=OTO1:@(L) =S+LLa¥+X 

80 L=L+1:NEXTY, X:GOTO1L40 

a9 REM VERTICAL SHIF 

90 S=LLaM+N: FORX=OTO1L: FORY=0TOS 

100 Q(L) =S+LLkY+X:LeL+isNEXTY, X:GOTOL40 

1909 REM SLANT SHITE 

110 M=INT (9XRND (8) 41) sN=INT (OXRND (8) +6) 2 S=LLKMFN 

120 FORX=0TO(S* (LL-1)) STEP (LL-1) sFORY=0TOL 

120 QCL)=INT(S+LL&V+X) sL=L+isNEXTY, x 

140 ONFGOTOLSO, 140,180 

149 REM STORE SHIF A 

150 FORM=1TO12:4(M) =Q(M) sNEXT:GOTO40 | a, 
159 REM CHECK FOR OVERLAF AND STORE SHIP 

140 FORM=1TO12:8(M) =O 4M) :FORN=1TOL2: [FBR (M) =A (N) THENSO 

170 NEXTN,M:GOTO40 : 

179 REM STORE SHIFC : SHIP FOSITIONS ARE A¢xX),B(x%),C(X) 

180 FORM=1TOL2:C (M) =O (M) sFORN=1TOL2: IFC CM) =A (N) ORC (M) =B (N) THENSO 
190 NEXTN, M:W=1:POKE@9S5S, 45:FPOKES956, 37: GOSUB4 30 

191 REM FOR BASIC IN ROM REPLACE 8955 AND 8956 FOKES WITH 

i92 REM WITH FORE11,0:FOKE12, 25% 

195 REM TO SEE SHIPS, THIS LINE IS 193GQSUB 470 (DELAY): GOTORO 
200 FN=GL+LLs FOKEPN, 43: FORM=1706: P=FEEK (PN) 

209 REM POLL KEYBOARD Y=ASCII OF KEY FRESSED. 

210 X=USR(X) :Y=FPEEK (9@15) 

211 REM FOR TAFE SYSTEMS Y=FEEK (S513): FOR CIPMF Y=PEEK (99%4) 

215 LFY=70ANDF=41 THENFOREPN, 42:F=42:0(M) =PN-GL:GOTO2Z80 

219 REM REVIEWS TO SEE IF ANY SHOTS FIRED AND (R) PRESSED. 

220 IFM=1ANDY=82ANDI >i THENGOSUBSS0O:P RINT READY?" : X=USR(X):GOTO410 
230 POKEPN, Ps IFY=44THENFEN=FN- 1 

240 FOKEGLHLL, 32: IFY=46THENPN=FEN+1 

250 IFY=468THENFEN=FN+LL. 

260 IFY=@5THENPN=FN—LL : X=RND (@) 

270 P=PEEK (PM) sPOKEPN, 43%:GO0TO210 

280 NEXTM:T=I+1 

289 REM CHECK FOR HITS @(W)=CURRENT SHOT. H(1)=TOTAL HITS 

290 FORM=1T06sFORN=1TO12 

BOO ITFQ(M) =A (N) THENHA=HAt+1EHCL) =HC1T) +4 

310 TFQ(M) =B(N) THENHB=HE+irH (1) =HC1) +1 

S20 TFQ CM) =C (ON) THENHC#HC+1i:H (1) =HOD) +4 

329 REM HA,HE,HC ARE HITS ON SHIFS 4,8, AND C. 

BRO NEXTNs NEXTM 

339 REM COUNT UF SUNK SHIPS 

340 MeO: [FHE? LL THENM=M+1 VY 
390 [FPHC?11THENM=M+ 1 , 
360 TFHA211THENM=M+ 4 
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B70 
ABO 
890 
ere 
897 
299 
Ace) 
409 
410 


Meee “oe 


4 ei) 
APL) 
mt) 
vi) 
iat) 
an 
oe te 
= 40) 
sda) 
mH) 
me 
cr 
an on 
et) 
HO) 
o1a 
e119 
620 
630) 


100 
10S 
106 
£10) 
120 
io 
143 
LEQ 


Seoe? See! 


PRINT WE HAVE SUNK! MUENEMY SHIPS" 

PRINT! WITHOHO+HR+HO! HITS" 

[EMSS THENS OO 

[FW+S °SE THENPRINT  SORPY, WERE OUT OF ahha" 

[PWS SK THENPRINT HERE S WHERE THEY WERE" :GOSUB4702G0TOS 30 
REM @DD SHOTS TO STORAGE (ST=STORAGE tle TOTAL SHOTS) 

FORM 1 1062 ST Cal) 0) OM) 2 Warbler ds MEX TM 

REM READS OUT BACH SHOT SO Far 


GOSUBS9Os GOTOZO0 
PRIUNTSB WS" SHELLS LEFT 


ee REM PRINTS BACKGROUND 


rer Lid Pa 12343676901 2345" 
elles] PSs PR IMT PM! ~~ sete eceee cree eereceemecseoe ! ws AEX TM 
Bee TOTO Sie FR DT Py ee eee eee *! s fe XT 4 
Pike Pde hy 

REM POKES IN SHIF LOCATIONS 


RETURN 
PRINT CONGRATULATIONS YOU": 

PRINT'SANE ALL THREE SHIFS WITH "W" SHOTS 

GOSUEA?7O 

REM CLEAR VARTABLES FOR NEW GAME 

FORX=17TOWs ST (X) =O: NEXT: WeOs H6=02 HB=O2 HOO 

INFUT"READY TO START AGAIN?" sags F=O2 RUNZO 

ele PORK=1TOSO: PRINT: NEXTEPRINT'WE HAVE FIRED "I" VOLLEYS 
INFUT" WHICH GNE DO YOU WANT TO START WITH" SN 

TFN? ITHENPRINT NOT FIRED YET":PRINTs GOTOSSo 

REM POKE UF PAST VOLLEYS FOR REVIEW GR NEW TURN 

C=HNk6~S: GOSUR4S0 

FORX=CTOC+S: POREGL+ST (X) HOM) +48: NEXT 

[FR= 1 THENX=USR (X) 1 GOTO620 

FORX=17TO700: NEXT 

REM LOOPS TQ NEXT VOLLEH UNLES C>=W (TOTAL SHOTS FIRED) 
IF C+6<WTHENC#=C +6: N=N+1:GOTOS9O 

R=O: RETURN 


FRINTSFPRINTs FRINT SLASHEALL "sFRINT 
FRINT"COFYRIGHT FR. OLSEN 1979":PRINT:FRINTsP RINT 
W=64:LeW: C1=5 3248: C2=552350: KR=57088 

VB=600: IFPEEK (57088) < 1 28THENVE=540: GOTO7O 
We25:LeS2:1Ci=SSS15:C2=54205 

SP=57089 

INPUT"DO YOU WANT INSTRUCTIONS"; Ads IFLEFTS (Ad, 1)="Y"THEN9O0 
PRINTSERINTs INFUT" HOW HARD DO YOU WANT IT (41-11) "_XsD=(13—-X) k190 


)5 ADTH162: B=BPSsr Agel! 


FORX=17OS2: PRINT: NEXT: FORX#C2-6xL TOC: POKEX, 32: NEXT 
OF =4096: FORK=C1+0F TOCS+OF : FOREX, 4: NEXT 

TUsOs Red: Rat) 

REM DRAW SCREEN 

FOKESO8S2, 7 

FORK=17OWs PORECL+X, 88: POKEC2-X, 88: NEXT 

FORX=1TOS22 POKECL+X#L, 88: POKECE—X kL, 8G: NEXT 

APs (C2-C1)/2+C12 IF VB=GOOTHENAF=53743 

As=""s FORX=1TOZO: AS=AS+CHRS (PEEK (AP—104+X) ) rs NEXT 

POKEAP, 161:F0KEAF—1, 161:POKEAP+1, 161: [FVE=S40THENPOREAP+2, 161 


160 ADD=146: [FPEEK (8B) < 21 29ANDPEER (EB) ¢ 21 26THENI SO 
165 FN=INT (S5106+56RND (8) ) a MFe—L 

147 DE=D/25 

170 FPOKEPN, B 

175 FORX=1TODE: NEXT: DE=DE~1 

180 PS=PEER CPN+ME) 2 IFPN< Cl THENI6S 

195 TuU=TU+is LETUSDTHEN772 

200 LFFS=@8THENGOSUBS OOO: MF=—MF : GOTOSOO 

230 [FPS=92THENSSO:REM \ 

240 I[FPS=47THEN400;REM / 

250 [EF S=161THENS40:REM TARGET 

240 PSPEER (RE) : TEVR=GOOTHENF=255—-F: REMSCAN EE 

265 [EP =30RP=5 THENADD=ADD—1: [FADDS OTHENADD=0 

O70 IF F=3THENFOREFN+MFE, 92: FORX=1T060: NEXTX:GOTOL80 
230 LEP =3THENFOKEPN+MF , 47:FORX=1TO60s NEXTX: GOTO1L80 
200 POKEFNM, 32: PN=FN+MF: POKEPN, Bs GOTOL7O 

S30 FOKESFE, 90:POKEPN, 32 

240 PN=PN+MF REM GERVICE \ 

230 LEMF=1 THENMF=L:GOTO460 

S60 LEMP =—i THENMFE=—L:GOTO460 

"70 LEMF=LTHENMF=1:G0TO04690 

380 [TEMP=—LTHENMF=— 1: GOTO460 

390 GOTO460 

400 POKESF, 99:POKEPN, 32 

410 PN=FN+MF 

420 [FMF=1THENMF=—L:GOTO460 

450 [FPMF=—-1THENMF=L:GOTO460 

440 LEMF=_LTHENMF=—1:G0TO0460 

450 [EMF =-LTHENMF=1 

460 PS=FEEK (PN+MF) 

461 FOKESF, © 

470 IFPS=92THENS40 

430 IFFPS=47THENGOTO41i0 

490 IFPS=G8THENZOO 

SOO IFPS=161THENS40 

S10 POREFN+ME, B:PN=FN+MF sGOTOL7O 

S39 REM END OF TURN DISFLAY AND SCORE 

S40 C=PEEK CPN) : TECS >47ANDCE > 92THENPOKEPN, 32 

S41 FOKESF, 100 

S45 IFAD=146THENRS=" SERVE AGAIN ":GOSURS30:GOSURS40: GOTOS80 
S50 TsO: Ag=""s FORX=1TO201 AS=AS+CHRS (PEEK (QF—LO+X) ) NEXT 
S51 POKESF, 190 

S52 Ege" SCORE "sy GOSUBBSO 

S53 GOSUBRS40: [FR=26THENRL=R1+ADD 

S54 E¢="PLAYER ONE"+STR (RL): GOSUBBSO: GOSURB4O 

S55 FPOKESF, 150: [FR=2246THENR2=R2+ADD 

S54 Eh=" PLAYER TWO"+STR# (R2) s GOSUBBSO: GOSUBRB4O 

553 GOSUEBS4O 

S59 POKESP, 255 | 

540 [FR=224THENB=26: Bt=" PLAYER ONE UF ":GOTOS75 
S45 POKESP, 199 

S70 B=224:R¢=" PLAYER TWO UF " 

S75 POKESP, 220 

S75 GOSUBGSO: GOSUBRB40: RTH=Et: Bt=" SERVE ": GOSUBRA 30: GOSUBB4O 
S76 POKES, 150 

577 Bt=ETd: GOSUBRBZO: GOSUBB4O 

580 POKES, © 

S85 FORX=17TO20: POKEAP~10+X%, ASC (MIDS (AS, X,1)) :NEXT 
590 GOTOLSO 

772 IF B=24THENRZ=R2+25s GOTO78O 

774 Ri=Ri+25 

780 IFR2>Ri THENFORX=17T030:PRINTTABR(X) "FLAYER TWO WINS":NEXT:GOTOSOO 
790 [FRI >RETHENFORX=1TOSO:FRINTTAB (CX) "PLAYER: ONE WINS":NEXT:GOTOS00 
795 FORX=17TOS30:PRINTTAB(X) "A TIE GAME! ! 6 "::NEXT 

800 PRINT" SCORE PLAYER ONE "Ri:FRINT" FLAYER TWO "R2 
810 Ri=OsR2=0: Tu=0:;G0Ta80 , 
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Was awarded gift certificates 


FOR X=) TOLEN Ce) s POREAF-7+%, ASC (MIDS (B4%,X,1)) NEXTs RETURN 


FORX=1TO600: NEXT: RETURN 
FORX=1TQ27: PRINT: NEXT 


PRINT"T WILL PUT A TARGET“ sPRINT® IN THE CENTER OF 


THE 


PRINT "SCREEN :PRINT"YOU SERVE THE BALL." PRINT’ WITH THE REPEAT REY 


PRINT" THE Lert SHIFT WILL, FUTTP SPRINT A ¢ 2M FRONT 


PRA’ THe RIGHT SHAFT MILL Pu” 


OF THE BALL AND 


PRINT"A \ IN FRONT OF ITT"sPRINT*"YQU STEER FHE BALL BY 


PRINT’ BOUNCING IT OFF OF THE" SPRINT" BARRIERS" s 


PRINT"THE IDEA IS TO HIT THE": PRINT" TARGET IN THE CENTER OF 


PRINT "THE SCREEN’ srPRINT° ALL SLASHES EXCEPT 


PRINT'A FEW HARD AGAINST THE'SFRINT SIDE ARE FERMANENT 
INFUT"READY TO DISCUSS SCORE" sA$:FPRINT: PRINT: PRINT 
PRINTsPRINT'YOU GET 16 POINTS MINUS": FPRINI“ THE NUMBER OF SLASHES 


PRINT YOU Ube TO HIT THe TARGET 


PRINT"BEST SCORE FROM A ROUND "SPRINT" IS 15 POINTS AS THE 
PRINT GAME DOESN’ T COUNT" SPRINT’ ACCIDENTAL HITS FROM 
PRINT™LUCEY SERVES. IP YOU GET’ SsPRINT"“ONE YOU HAVE TU 


PRINT SERVE AGAIN 


PRINT" THERE IS © 25 POINT™ SPRINT" BONUS FOR THE LAST HIT. 


PRINT"THE HIGHER THE DIFFICULTY ":FRINT"THE LESS 
FRINT"TO SCORE" :F RINT: GaTaaO 


TIME YOU AAVE 


CiZCe=CORNERS: B=BALL:SFPN=FOSTTION NOW PS=FEER NEXT FNe MPF =MOVE 
ADD=SCORESRIERES=FPLAYERS SCORE: RTSTEMPORARY: AF=TARGET:W=WIDTH:L=L I 


POKESP, 190:FORX=1TO15: NEXT: PORESF, O: RETURN 


GIFT CERTIFICATES 
(or see what they gat!) 


mited space in last month’s journal kept us from printing who 


$40 certificates went toa: 


Thomas Owens for video pokes 

Bab Woodward for the reverse scroll praqram 
Tim Walkenharst far the disk buffer article 
N. Feliss for the parallel printer article 
Kerrey Lourash far the E.2Z. LISTER 


$20 certificates wemt tas 


Charles Stewart 
Russ Terrell 
Curtis Freston 


$15 certicates for the other letters that Cane 
programs, or bright ideas. 


This month, $60 certificates are going ta: 


Edward Feating 
CW. ALgeldinger 
Charles Stewart 
Todd Hailey 


$30 certificates go ta: 


Gary Wheeler 
Farl Marri ss 
Card King 
Kercy Lou ash 
Dick Sweet 


for what articles, sa here goes --- 


up with hints, 


Oe Ks We're trying again! On the last issue the respanse ta the 
new farmat ran fram "T love it" ta "take pity an my poar bi-focals, sa 
here is aA Semi-new format. We've kept the column farmat, But the 
print is dane an aur new EFSON and reduced about 20%, With the white 
background (the COMPRINT uses silver paper), the printer should be 
able ta shoaat a little darker sa it will be easier to read. We would 
appreciate apinians oan this style - did we hit it right this 
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